﻿Imports System.Drawing

Namespace SRAGWM

    Public Class MapServer

        Dim _OutputType As Integer
        Dim _BackgroundColor As Color

        Property OutputType() As Integer
            Get
                Return _OutputType
            End Get
            Set(ByVal value As Integer)
                _OutputType = value
            End Set
        End Property

        Property BackgroundColor() As Color
            Get
                Return _BackgroundColor
            End Get
            Set(ByVal value As Color)
                _BackgroundColor = value
            End Set
        End Property

        Public Sub New(ByVal pOutputType As Integer, ByVal pBackgroundColor As Color)

            _OutputType = pOutputType
            _BackgroundColor = pBackgroundColor

        End Sub
    End Class
End Namespace
